home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 March / PCWorld_2007-03_cd.bin / v cisle / pcwkomp / pcwKomp.exe / pcwKomp.js
Text File  |  2006-09-18  |  1KB  |  31 lines
  1. var oFs = new ActiveXObject("Scripting.FileSystemObject");
  2. var oWsh =  new ActiveXObject("WScript.Shell");
  3.  
  4. if (winver_2kXP()) {
  5.   var strfilepath = oWsh.ExpandEnvironmentStrings("%WINDIR%")+"\\INF\\SYSOC.INF";
  6.   var strfilebakpath = oWsh.ExpandEnvironmentStrings("%WINDIR%")+"\\INF\\SYSOC_BAK.INF";
  7.   if (oFs.FileExists(strfilepath)==true) {
  8.     if (oFs.FileExists(strfilebakpath)!=true) {oFs.CopyFile(strfilepath, strfilebakpath, 0);}
  9.     var fileastext = oFs.OpenTextFile(strfilepath, 1, false, true);
  10.     var dateiinhalt = fileastext.ReadAll();
  11.     fileastext.Close()
  12.     dateiinhalt = dateiinhalt.replace(/\,HIDE\,/g,",,");
  13.     dateiinhalt = dateiinhalt.replace(/msmsgs.msgrocm.dll.OcEntry.msmsgs.inf.hide../gi,"msmsgs=msgrocm.dll,OcEntry,msmsgs.inf,,7");
  14.     var fileastext = oFs.OpenTextFile(strfilepath, 2, false, true);
  15.     fileastext.Write(dateiinhalt);
  16.     fileastext.Close();
  17.     WScript.Echo("SYSOC.INF byl zm∞n∞n. P∙vodnφ verze byla ulo₧ena pod nßzvem "+ strfilebakpath +" .")
  18.   }
  19. }
  20.  
  21. function winver_2kXP() {
  22.   var strver;
  23.   try {
  24.     if ((oWsh.RegRead("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\ProductName")== "Microsoft Windows XP") || (oWsh.RegRead("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\ProductName")== "Microsoft Windows 2000")) {
  25.       strver = true; }
  26.   }
  27.   catch(error) { strver = false; }
  28.   return strver
  29. }
  30.  
  31.